home *** CD-ROM | disk | FTP | other *** search
/ Web Star/List Star - Eve…he Ultimate Internet Site / StarNine Internet Pubisher (Web Star and List Star)(StarNine)(1995).iso / ListSTAR™ / Tools and Enhancments / Paging with ListSTAR / Notify! / Notify! Subscribers v1.0 < prev   
Text File  |  1995-08-04  |  2KB  |  37 lines
  1. -----------------------------------------------------------------------
  2. -- StarNine Technologies, Inc., hereby disclaims all copyright interest
  3. -- in the following source code written by Joshua D. Baer.
  4. -- 
  5. -- This source code is free and has been placed into the public domain.
  6. -- You can redistribute it, modify it (including these comments) and/or
  7. -- create derivative works from it as you see fit.
  8. --
  9. -- This source code is made available in the hope that it will be useful,
  10. -- but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  12. -----------------------------------------------------------------------
  13. --Place this script in the folder with the same name as the service you just created
  14. --(ie. Hard Drive->ListSTAR/SMTP->Services-><Service Name>).
  15. --Change the value for the ServiceName variable to be the same as the name of your Service.
  16.  
  17. set ServiceName to "<your Service Name>"
  18.  
  19. --End of Configuration Area
  20.  
  21. set theBody to ""
  22.  
  23. --first, create body of message line by line
  24. tell application "Notify!™ Server"
  25.     set theBody to "This Notify!™ server supports the following subscribers:" & return & (DoScript "Get Subscribers")
  26.     set theBody to theBody & return & "This Notify!™ server supports the following groups:" & return & (DoScript "Get Groups")
  27. end tell
  28.  
  29. --next send as body of message to ListSTAR Server
  30. tell application "ListSTAR Server"
  31.     StarNine Send ¬
  32.         ServiceName To s9SenderEmailAddress ¬
  33.         Subject ¬
  34.         "Re: subscribers" Body theBody
  35. end tell
  36.  
  37. return 0